home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1998 / MacHack 1998.toast / The Hacks! / The Crash Manager / "source" / misc.p < prev    next >
Encoding:
Text File  |  1998-04-15  |  532 b   |  27 lines  |  [TEXT/CWIE]
  1. unit misc;
  2.  
  3. interface
  4.  
  5. uses
  6.     Types;
  7.  
  8. function GetResString (res,i: integer):Str255;
  9.  
  10. implementation
  11.  
  12. uses
  13.     TextUtils;
  14.  
  15. function GetResString (res,i: integer):Str255;
  16. { Just a wrapper around GetIndString. This way the string is returned }
  17. { a a function result rather than as a var parameter.                 }
  18. {                                                                     }
  19. { 5/26/97 Jude Giampaolo                                              }
  20. var
  21.     s: Str255;
  22. begin
  23.     GetIndString(s, res, i);
  24.     GetResString := s;
  25. end;
  26.  
  27. end.